home *** CD-ROM | disk | FTP | other *** search
/ Publication 50 / Publication_50_2003_Civitas_de_Disk_2_of_2_Side_B.d64 / bas4x4 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  142b  |  11 lines
  1. 0 poke53272,24
  2. 1 print"[129][147][145]";
  3. 2 poke53270,216
  4. 10 a=2304
  5. 20 b=2
  6. 30 fori=0to3
  7. 40 forx=0to3
  8. 50 poke1024+i*40+x,peek((a+i*256)+b*4+x)
  9. 60 nextx
  10. 70 nexti
  11.